home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
fig 3a writechrs
< prev
next >
Wrap
Text File
|
2023-02-26
|
210b
|
22 lines
20
* = $7000
char = $7040
scrn = $b5
lda #$00
tay
sta char
sta scrn
again lda #$80
sta scrn+
lda char
loop sta (scrn)Ly
iny
bne loop
inc scrn+
ldx scrn+
cpx #$84
bne loop
inc char
bne again
rts